|
|
 |
|
|
|
|
384: Exit Sub
385:
386: GoPrevError:
387: MsgBox Err.Description
388: End Sub
389:
390: '##ModelId=352AB4ED033E
391: Public Sub getNextRec()
392: On Error GoTo GoNextError
393: With mvarpResultset
394: If Not .EOF Then .MoveNext
395: If .EOF And .RecordCount > 0 Then
396: Beep
397: 'moved off the end so go back
398: .MoveLast
399: End If
400: End With
401: 'mvarpEOF = True
402: pDataChanged = False
403:
404: Exit Sub
405: GoNextError:
406: MsgBox Err.Description
407: End Sub
408: '##ModelId=352AB4ED03AC
409: Public Function openDBTable(argTableName As String) As Variant
410: End Function
411:
412: '##ModelId=352AB4EE014A
413: Public Sub updateManyRecords()
414: End Sub
415:
416: '##ModelId=352AB4EE01EA
417: Public Sub updateBySQL()
418: End Sub
419:
420: '##ModelId=352AB4EE02C6
421: Public Sub startEditMode()
422: On Error GoTo EditErr
423:
424: Screen.MousePointer = vbHourglass
425: .Edit
426: pEditFlag = True
427: mvBookMark = .Bookmark
428:
429: Exit Sub
430:
431: EditErr:
|
|
|
|
|
|